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EBD TORIAL 


With fewer contributions, this issue is a little briefer 
than I like to see each month. However, on your behalf, I 
would like to thank the following for their assistance: 


Anne Flower Wellington 
Don MacDonald Wellington 
Rene Turner Hamilton 
Mike Shores Auckland 


Winter is setting in; the weather is a bit cooler and the 
evenings longer. Now is the time to finalise that program 
you were writing and forwarding it for publication. Or 
maybe you have just bought hardware or software which you 
could review for the benefit of other readers. 


I cannot publish what I don’t receive. So if you perceive 
a deficiency, be positive and see what you can do about 
it. 


The July issue should contain the next in Anne Flower’s 
excellent series on *xFX calls, the programming of Function 
Keys, and the results of Bernie Kay’s experimentation with 
the extension of sound to a CF1114 Monitor. As for the 
rest of that issue - that is up to you. 


Happy computing. 

Graham Ellett 
NOTICE TO LOCAL USER GROUP COMMITTEES: 
Now that your AGMs are behind you, please check the 
accuracy of the information listed on the back page 


relating to meetings and local contacts in your area. 
Advise the Editor of any corrections required. 


ba SS ed 


The views of reviewers, contributors and/or Editorial 
committee are not necessarily shared by 


THE BBC/ACORN COMPUTER USER GROUP NZ INC. 


a 
a a a a a 
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This 


WAVEGEN 
by Mike Shores, Auckland. 


short program is published without further 


explanation. Readers are invited to examine its purpose 


and 


180 


390 


method of operation for themselves. 


REM RAK KAR KKK KKK KKK KK KKK KR KKK AK RK 
REM x WAVEGEN program by x 

REM x SHORESOFT (c) 1987 * 

REM AK KKK IRR RK KR KK ORK KKK KK 

REM Program originally concerned with setting up 
REM Nanocomp(W.W. Jan.81) to produce exact 

REM frequencies. However the calculation 

REM is valid on a general basis. 

xTVO,1 

MODEO: VDU14,19,1,2;0;0;0; 

Y=350:K=200 

PROCsquarewave:PROCcycletine 

VDU28,2,11,70,1 

REPEAT 

CLS: INPUT’’"F= ";F 

PRINT’"“T= “;10°6/F; “microseconds” 

PRINT’ 4°So the timing periods between toggling= °; 
10*°6/CFx2);"musecs" 

PRINT’TABC25)"P RES S S PAC E" 
REPEATUNTIL GET=32 

UNTIL FALSE 

END 


DEFPROCsquarewave 

X=O:MOVE X,Y 

REPEAT 

DRAW X,Y+K:DRAW X+K,Y+K:DRAW X+K,Y:DRAW X+2xK,Y 
X=X+2x%K 

UNTIL X>1000 

ENDPROC 


DEFPROCcycletime 
X=0: REPEAT: X=X+2xK: UNTIL X>500:X=X-4xK 


MOVE X+2xK,Y-20: DRAW X+2xK,Y-100 
MOVE X+5+24K,Y-50: VDUS: PRINT" <": VDU4 
MOVE X+4xK,Y-20: DRAW X+4xK,Y-100 


MOVE X+(C4xK)-15,Y-50: VDUS:PRINT">":VDU4 
MOVE X+20+2xK,Y-60: PLOT21,X-15+4%*K, Y-60 
MOVE X-10+(€3%xK),Y-50: VDU5:PRINT”"T”:VDU4 
ENDPROC 


eee 
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MicroCOopli“Lg 


In the mailbag this month we have received brochures fron 
CODIL Language Systems. 


What is MicroCODIL? 


MicroCodil is a novel computer language system which 
concentrates the results of many years university research 
into a BBC computer. It combines detailed observations as 
to how people handle information with the latest ideas in 
the fields of educational technology, human-computer 
interaction and Knowledge based systems. 


It uses colour, windows, menus, help and diagnostic 
facilities to form a system which is inherently simple for 
novices to use. In the classroom MicroCODIL can play a 
number of distinct roles. Its flexible approach to the 
storage and retrieval of information makes it ideal as a 
data base language for subjects as diverse as biology, 
history, chemistry and business studies. 


At a secondary school level MicroCODIL allows pupils to 
play with information in a way which has much in common 
with Papert’s use of Logo to encourage primary school 
children to conceptualise geometry. As such it is an 
ideal language for encouraging imagination and 
experimentation in computer appreciation and information 
technology classes. 


MicroCODIL comes complete with a dozen ready made teaching 
packages with interesting names such as BOGBOD, CRISIS, 
INVENT, PRICE, QUEST, MUSIC, SOLIDS, etc. It is designed 
to run on virtually any BBC based system from Model B with 
a Single sided 40 track drive to am Archimedes in emulator 
mode. It is available in DFS or ADFS to suit. 


If you would like further details, send a stamped self 
addressed envelope to: The Secretary, BBC/Acorn User Group 
NZ, Ince., PO Box 9592, Wellington, for a copy of the 
brochures (which include costs) or direct to: 


Chris Reynolds 

33 Buckingham Rd 
Tring, Herts, HP23 4HG 
ENGLAND 
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TENDING SOUND TO _4A 


EXTENDING SONS! fee ee 


PHILIPS CFiIilid MONTTOR 


Tony Wattam of Taradale writes in requesting advice on 
using the TV speaker of a Philips 14" CF1114 monitor for 
the Beeb’s sound. You might remember that Paul Collins 
reviewed the use of the monitor in the October 1986 issue 
of Beeblet. 


Tony notes that there is an audio-in socket, but in Paul’s 
diagram of the plugs, the centre pin of the TVs RGB socket 
is shown as an audio-in. Does this mean that with a 
suitable modification to the Beeb, a single cable will do 
for both RGB and sound, or do we have to have a_e separate 
cable for audio? The ideal would be to have the option of 
the TV or Beeb’s speaker - or is this unnecessarily 
complicated? 


Editorial Comment: 





The CF1114 appears to have become popular amongst home 


computer users. With the demise of an old TV, and 
following Paul’s article a CFiii4 is now being used at the 
editor’s desk. It was a good choice. 


I have spoken to Paul Collins. He admits having taken the 
easy way out and has run a separate lead for the sound. 
This method has the advantage of requiring no 
modifications to the Beeb - the centre pin of the RGB 
socket on the Beeb normally has +5 volts on it. 


However, I have discovered that fellow committee member, 
Bernie Kay, is in the process of carrying out the 
modification on his own Beeb and it should be possible to 
publish details next month. 


For Sale: 


1 x INTERWORD 32K wordprocessor ROM, new, complete with 


manuals, etc., $120.00 
1 x INTERBASE ROM database, new, complete with manuals, 
etc., : $150.00 


Contact: Barry Borman, 12 Auckland Tce, Melrose, 
Wellington. Tel: (04) 898 855 





June 88 BEEBLET S 


APX CALLS fT 
FLIPPING CURSORS AND TABS 


by Anne Flower, Wellington 


After last month you may suspect the reason you are more 
likely to see hawks than eagles in N2. If you were 
getting worried about your typing, we’ll spend some time 
looking at xFX calls relating to the keyboard. 


From any issue of any computer magazine: 


"Some of the Keys on my Keyboard have suddenly 
stopped working...” 


The long-term solution is to go hunting for cracks in 
tracks and filling them in. The short-term solution Cie., 
while the soldering iron warms up and you frisk the Kids’ 
pockets for a magnifying glass) is to redefine some other 
Key to print the missing character. Sure, you can define 
the red keys, but you may have other uses for most of 
those. How about the TAB Key - what if whenever you 
pressed TAB you got that missing “e"? 


If you were to type in 
PRINT ASC"E” 
the computer would say "69" was the ASCII value of “E”. 


The ASCII value af TAB is 9 normally, but *FX219 will 
allow you to assign any other value to it. (Any other?). 
The BBC User Guide p.497, and Master Welcome p.191 have a 
picture of the Keyboard showing the normal ASCII values of 
each Key. So to cope with that E Key not working, try: 


xFX219,69 


Tried it yet? Did you find, like I, that if caps or shift 
lock was ON, you got “e", and with them both OFF, you got 
“E"“!! Round the other way from the rest of the Keyboard 
isn’t it? Perhaps we should really redefine TAB as “e” 


whose ASCII value is 101: 
*KFX219,101 


Try it. Just like any other self-respecting key isn’t it? 
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You can also redefine TAB to be one of the red function 
Keys, by giving it a new ASCII value in the range 128-143 


eg. %*FX219,128 makes it behave like £0 
*FX219,130 Like £2 
*FX219,138 like £10 which is also BREAK - but you 
won’t get the effects of Break when = you 
use TAB as xKEY1i0!?! 


MORE FUNCTION KEYS 


Although the computer won’t allocate any more RAM for your 
Key definitions, you still may have need for more than 
nine red Keys + Break with lots of short definitions. 


*FX4,2 makes the COPY and arrow (cursor) keys behave like 
function keys - that is, you can define them with xKEY 
command, and get them working that way. When you want to 
go back to using the cursor and copy Keys as ’normal’, 
*FX4,0 will reset then. 


If, like me, you can’t afford to have valuable brain cells 
tied up remembering which way round they go, or you are a 
lazy typist, can you spare one of the normal function Keys 
to swap between the two uses of the editing keys? 
Something along the lines of the PROC we had to resort to 
back in Part I because the value in the X register has to 
keep being changed: 


*xKEY 31 FX%=2X%=OELSEX%=2 1MA%=4: CALL&FFF4:M 


looks promising - and it works. 


Press f3 and try the cursor Keys - give them some 
definitions to be sure. It works - until you use X% or A% 
in some other way that changes the value ~ or you press 


that Key during a program and corrupt its A% or X% values. 


That’s because, unlike PROC parameters, variables aren’t 
LOCAL to a key definition. It isn’t as if you could put 
the whole DEFPROC into a Key and use it. And even if you 
could, the whole idea was to get as many different Key 
Gefinitions as possible, not use up all the available 
memory for them in one giant definition. I consulted my 
other half (remember xFX254,0?) most unfairly ~- ie before 
llam on a Saturday. 


June 88 BEREBLET 7 


Store the values in some spare bit (byte?) of memory - say 
in zero page where there are odd bytes available for that 
sort of thing, and reinstate them when needed... and use 
OSCLI... and wasn’t there an *FX call that did this? 


“*FX1 Reserved for Applications programs” says BBC User 
Guide. 


“"Read/write the user flag” says the Advanced User Guide. 


"This call provides a means of writing data to the user 
flag (location &281). The flag is zero by default” says 
the Master Reference Manual [. 


Haven’t Acorn improved in 7 years!! 


So what this means is that we can place zeroes and twos 
alternately into this byte of memory. Why choose this 
byte and not one in zero page? Mainly because it’s less 
likely to be used by any program you’re using (C(I hope - 
Statistics please). 


The arithmetic expression to alternate between 2 and O in 
this byte is: 


P&281 = €?&281=2)%24+2 
In English it is approximately translated as: 


“The value in location &281 is equal to” and "Tell me _ if 
it is true that the value in location &281 equals 2 by 
calling this -1, or else O if it isn’t the same. Multiply 
this response by 2 and add 2 to it” The resultant number 
is what will now be in location &281. The rest of the 
function key definition is another way of putting a 
variable into an *FX call (assuming not BASIC I): 


AKEY37&281=(7&281=2)*2+2:O0SCLI “FX4, “+STRS?&2815M 


The manuals also refer to *FX241. It not only reads and 
writes to &281, but also can toggle between two values if 
you ask it to. I haven’t understood it enough to 
re-explain it - someone else? - but take my word for it, 
that the following definition works. It has the advantage 
of being shorter still, and retains that advantage of no 
variable names in sight: 


KKEY3*FX241,2,2:MOSCLI“FX4, "+STRS?&2815M 
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All this just goes to show how involved these un- semi- 
documented xFX calls can get, how easily they lead you 
away from the original demand made by lazy typists, and 
into the realms of “perfection at all costs". You haven’t 
seen the very first xKEY3 definition I wrote either! 


I haven’t touched xFX4,1 for now, and would someone else 


please explain x*xFX221-4, what they are and when they would 
get used. 


THAT SINKING FEELING 





Last month 1 showed you how to sink a printer - or at 
least let out its bunghole to allow data to drain away. 
What about those infernally noisy programs? 


L1O:PRINT”Sinker program”: VDU7:wait=INKEYC100) 
20:PRINT*Will xFX210 help?” :*FX210,1 

30: VDU7:wait=INKEYC100) 

40:PRINT"How long will it last?”:xFXK210,0 
50:xkFX214,255 

60: VDU7 

7O.END 


Unfortunately the effect only lasts until Break is 
pressed, so redefine that as 


*KEYLOXFX210, 19M 
But if the Kids are too smart and do a CTRL-Break you’1l 


just have to disconnect the speaker. If they are even 
Smarter than that, well that’s hereditary isn’t it? 


ee Se ee ad 


WIN T 
for 


FUNCTION KEY USERS 


To eliminate the unfortunate habit the User Function Keys 
have of printing their instructions on the screen: insert 
CTRL LC ¢:L) after each command. This clears the text area 
before the command is executed. 


eg: *XKEYO OLD: L:MLIST:OiNiM 


David Kenealy, Wellington. 


nN PASC NAPUS OLN esheets etna rrrnmatn ruins: 
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PION P wal i. Ss 


by D S McDonald, Wellington. 


Program “TENNIS” plays Championship Tennis - 5 setters 
without tie-breaks, like Wimbledon Men’s Singles. It 
plays N Cup to 200) matches between 2 players. 


The first server is determined by the toss of a coin and 
service alternates after every game thereafter. The 
choice of ends is elected by the receiver and the players 
change ends after every odd game of the competition. 


The scoreboard shows matches won, sets won in current 
match, games in each set, total games won by each player, 
and total points won. See Figure 1. It also shows point 
by point game score in the first game and the current 
game, the winner of the last game, and clocktime starting 
from the beginning of the competition. 


The input to the program includes : 


1. Players’ names and service percentages Chow many 
points out of 1000 they should win on average 
respectively when serving from either end, “UP” or 
“DOWN"), 

2. number of matches in competition, and 

3. a random number whereby the whole competition can be 
duplicated or played again by chance. 


The scoreboard can be frozen at the end of a match for up 
to 1 hour by pressing the space bar in real time. The 
scoreboard is restarted by pressing another Key. 


The speed of play can be retarded by up to 1 second per 
point by pressing 0-8 in real-time Cinitially set at 2.) 
The maximum speed is 13 points played per second. The 
current speed is shown as “SPDn", for example. 


At the end of the competition the player can obtain an 
analysis of games won by attacking/defending player and 
length of game. Press A (Aye) for analysis. This erases 
the scoreboard. Finally, the operator may play again CY) 
or quit (N). 
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A small overall points advantage should result on average 
in a slightly greater games and sets advantage. The 
overall winner after a series of matches should usually be 
the player who starts with a theoretical service points 
superiority. 


There are 4 components of a player’s expected performance, 
viz. the service percentages. Thus by experiment, an 
expert player can determine which part of his game, 
serving up or down or defending, would most benefit from 
improvement. 


10 PRINT"PROG. TENNIS, 5.3.88, PRESS ANY KEY" 

20 PRINT"“OR FUNC KEY £7 FOR EXAMPLE” 

30 xKEY7XLEWIS: MLENDLE:M499:M465 :M525!:M549!IM9;M55:M 

40 AS=GETS$ 

50 DIMPLAYERS(2),WIN%C2,2),DEN$(€2)},POYNTSC2) 

60 DIMGAME(2,5),SETC2),MATCH(2),A%(2,50) 

70 DIMNGC2),NPTC2),AT%C2) 

80 MODE7 

380 PROCTITLEINTRO 

100 FORM=1TOMATCHES 

110 PROCMATCH 

120 NEXTM 

130 x*FX21,0 

140 PRINTTAB(0O,23)"“PRESS A FOR ANALYSIS OF GAMES, OR SPC 
BAR“; 

150 A$=GETS 

160 IFAS="“A“THENPROCANALYSIS 

170 *FX21,0 

180 PRINTTABCO,23)"DO YOU WANT TO PLAY AGAIN, Y/N.?"; 
SPCC7); 

190 AS=GETS$ 

200 IFA$S="Y"THEN8O 

210 IFA$S="N" THENSTGOP 

220 GOTOI80 

230 END 

240 DEFPROCTITLEINTRO 

250 FORL=1TO2 © 

260 VDUI29,157,132,141: 
PRINT“CHAMPIONSHIP CWIMBLEDON) TENNIS." 

270 NEXTL 

280 PRINT“BY D.MC DONALD, 5.3.1988" 

290 PRINT°ENTER PLAYERS NAMES AND EXPECTED NO. OF POINTS 
EACH PLAYER WINS PER 1000 SERVES FROM EACH END." 

300 PRINTTAB(11,6);"ENDS”,TAB(10,7);"UP ! DOWN" 


+--+... TENNIS Contd >>> 
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ae ee 


310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
430 
500 
510 
520 
530 
540 


560 
570 
580 


600 
610 
620 
630 
640 
650 
660 


680 
690 
700 
710 
720 
730 
740 
750 


12 


. TENNIS Contd >>> 


PRINTTABCO,8);"SERVER 1°; TAB(18,8);"PLAYER 1” 
PRINTTAB(0,9); "SERVER 2°;TAB(18,9);"PLAYER 2” 
FORP=1TO2 

PRINTTAB(27,P+7);:VDU 128+P: INPUTPLAYERS(P) 
NEXTP 

FORP=1T0O2 

FORE=1TO2 

REPEAT 

PRINTTAB(6+4xE,P+7);"X": INPUTTAB(C6+4xE, 10) ;WIN%(P,E) 
UNTILCWINS (CP, E) 0 ANDCWIN%S(P,E)< 1000) 
PRINTTAB(5+4xE, P+7)3: VDUL28+P: PRINT; WIN%(P,E) 
NEXTE 

NEXTP 

REPEATINPUT"HOW MANY MATCHES TO PLAY 1~200",MATCHES 
UNTIL¢CMATCHES> 0) ANDCMATCHES<=200) 

INPUT"“ENTER RND NO., (MAX 6 DIGITS)”",R 

IFR< 2THEN 460 

X=LOGR 

X=RNDC-2E9xCX-INTX)) 

SERVER=RND(C 2) 

FSERV=SERVER 

REM FIRST SERVER RANDOM DEPENDING ON TOSS OF COIN , R 
IFWIN%S (SERVER, 1) <WIN% (SERVER, 2) THENE=1 ELSE E=2 
DEN$(1)="UP":DEN$(€2)="DOWN":REM DEN = ENDS 
PRINT“COMPETITION OF “;MATCHES;*° MATCHES.” 
FORP=1TO2 

MATCHCP)=0:NGC(P)=O:NPTCP)=0 
FORPT%=OTO50:A%(P,PT%) =O: NEXTPT% 

NEXTP 

TX=TIME 

A$S="2" : REM MED SLOW 

ENDPROC 

DEFPROCMATCH 

FORP=1T0O2:SETCP)=0 

FORS=1TO5:GAMECP,S)=0 

NEXTS 

NEXTP 

S%=0 

REPEATS%=S% +1 

PROCSET 

UNTILSETCPOYNT%)=3 

MATCH CPOYNTS% ) =MATCH( POYNT% ) +1 

VDU7 

PROCSCORE 

BS =INKEY$( 250) 


aes TENNIS Contd >>> 
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760 
770 
780 
790 
800 
810 
820 


830 
840 
850 
860 


870 
880 
890 


900 
910 
920 
930 
940 
950 


960 
970 


980 
990 
1000 


1010 


1020 
1030 
1040 
1050 
1060 
1070 


1080 
1090 


1100 


TENNIS Contd >>> 


IFCAS="9" JORCAS=" ")THENAS=INKEY$S (360000) 
ENDPROC 

DEFPROCSET 

G%=0 

REPEATG%=G%+ 1 

PROCGAME 

UNTIL(GAME( POYNT%,S%) >5) AND(CGAME( POYNT% ,S% 3 - 
GAME(C3-POYNT%,S%)>1) 

SET CPOYNT% ) =SETCPOYNT%) +1 

ENDPROC 

DEFPROCGAME 

PRINT"SERVER”; : VDU128+SERVER: 
PRINTPLAYER$S(SERVER);" FROM “;DENSCE);" END."; 
FORP=1TO2:POYNTS(P)=0:NEXTP 

REPEAT 
IFRND(1)x1E3<WIN% (SERVER, E) THENPOYNT%=SERVER 
ELSE POYNT%=3-SERVER 

POYNTS(POYNT% )=POYNTS(POYNT%) +1 

NPTCPOYNT%) =NPTCPOYNT%) +1 

PRINT; POYNTS( 1); "-"“POYNTS(C2)",°; 

BS=INKEY$ C1OxVALCAS)) 

IFNOT(CBS=" "> THENAS=B$ 
UNTIL(CPOYNTS( POYNT%) > 3) AND(POYNTS( POYNTS 3} ~ 
POYNTS(3-POYNT%)>1> 

PT%=POYNTS(3-POYNT%) : REM LOSERS GAME POINTS 
VDU128+POYNT% : PRINT” GAME” ; PLAYERS CPOYNT%);: 
VDU135:PRINT; “C"TIME-TX">";SPCC40) 
GAMECPOYNT%,S%)} =GAME(POYNT%,S%) +1 
NGCPOYNT%)=NGCPOYNT% ) +1 

IFWIN% CSERVER, E) )SOOTHENATKR%=SERVER 
ELSEATKR%=3-SERVER 
IFPOYNT%=ATKR%THENA%(1,PT%)=A%C1,PT%) +1 
ELSEA%(2,PT%) =A%C2,PT%) +1 

SERVER=3-SERVER 

IFSERVER=FSERV THENE=3-E 

PROCSCORE 

ENDPROC 

DEFPROCSCORE 

PRINTTAB(O,16);"MATCH : SETS | GAME SPD"A$S" : NG : 
NPTS” 

FORP=1TO2 

VDU128+P:PRINT;MATCH(P); TABC8)SET(P)TAB(13);:FOR 
S=1TOS:PRINT;GAMEC(P,S)" ";:NEXTS:PRINTTABC27);NGCP)” 
“NPTCP) 

NEXTP 


eats TENNIS Contd >>> 
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1110 
1120 
1130 
1140 


1150 
1160 
1170 


1180 


TENNIS Contd >>> 


PRINT“FAST OA-Z : SLOW 1-8 : FREEZE 9,S5PC"* 

ENDPROC i 

DEFPROCANALYSIS 

CLS:PRINT" CHAMPIONSHIP TENNIS."’’ “ANALYSIS OF GAMES 


WON BY ATTACKING AND DEFENDING PLAYERS BY LENGTH OF 
GAME."’ "LENGTH OF GAME MEASURED BY LOSERS GAME 


POINTS.“ 
PRINT"LNGTH/GAME | ATTACKER GAMES ; DEFENDER” 


FORPT%=OTOQ50 
IFA%(1,PT%)+A%C(2,PT%) }OTHENPRINTPT%,A%(1,PT%), 


A%C2,PT%) 
NEXTPT% 


.... TENNIS Contd >>> 
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Figure 1: Scoreboard panel of Program TENNIS. 


CHAMPIONSHIP (WIMBLEDON) TENNIS. 
BY D.MCDONALD, 5.3.1988 
ENTER PLAYERS NAMES AND EXPECTED NO. OF 
POINTS EACH PLAYER WINS PER 1000 SERVES 
FROM EITHER END. 
ENDS 

UP DOWN - 
SERVER | 499 465 PLAYER 1?LEWIS 
SERVER 2 525 550 PLAYER 2?LENDLE 
HOW MANY MATCHES TO PLAY 1-200? 10 
ENTER RANDOM NUMBER (MAX. 6 DIGITS)? 55 
COMPETITION OF 10 MATCHES. 


lst Game: SERVER LENDLE FROM UP END. 0-1,1-1,2-1, 


3-1,4-1,GAME LEWIS (25) 


MATCH : SETS : GAMES SPDO : NG ! NPTS 
3 0 54100 157 1162 
7 3 76600 204 1275 
FAST OA-Z : SLOW 1-8 ! FREEZE 9 SPACE 


Last Game: SERVER LENDLE FROM UP END. 0-1,1-1,1-2, 


1-3,1-4,GAME LENDLE (18452) 
PRESS A FOR ANALYSIS OF GAMES, OR SPC BAR 
DO YOU WANT TO PLAY AGAIN, Y/N.? 


Notes: Number in brackets after player’s name is time in 


14 


centiseconds since the beginning of play. 

The player who cannot win most of his own service 
points (LEWIS) in this case nevertheless won 30% 
of matches. 
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1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 


1280 
1290 
1300 


TENNIS Contd >>> 


PRINT” TOTAL: :::"; 
FORP%=1TO2 

AT%(P%)=0 

FORPT%=O0TO50 

AT%C(P% =ATX(P%) +A%0(P%,PT%) 
NEXTPT% 

PRINTAT%S(P%); 
NEXTP%:PRINTAT%( 1) +AT%C2) 
PRINT"“PRESS SPACE TO CONTINUE OR“’" A-Z TO REVIEW 
SCOREBOARD ?”; 

AS=GETS . 

IFA$<>" “THENPROCSCORE 
ENDPROC 


De es en Mids en clin, Hick etn cit ctitn Min Mein cn en aiken cc, ic Acs dn Ma Men can clientes dite cin clin dint iin itn i Mi hn i itn Mt it i Ain tt i Ee nit ts Min tht itt ht tit tet etd 


Figure 2: Analysis Panel of Program TENNIS. 


— se a le a 


Note: 


CHAMPIONSHIP TENNIS. 


ANALYSIS OF GAMES WON BY ATTACKING AND 
DEFENDING PLAYERS BY LENGTH OF GAME. 
LENGTH OF GAME MEASURED BY LOSERS GAME 


POINTS. 

LNGTH/GAME : ATTACKER GAMES : DEFENDER 
.¢) ai 16 

i 48 39 

2 63 54 

3 41 24 

4 17 13 

5 9 7 

6 2 3 

7 0 1 

8 3 i?) 
TOTAL::: 204 159 361 


PRESS A-Z TO REVIEW SCOREBOARD 


DO YOU WANT TO PLAY AGAIN, Y/N.? 


mm ee Ny i ty yah te mh ehh ths Semi uh Neh hel yy wy ve tne ms eda esl Mee Yee ee tl os a 


LENDLE was regarded as attacking player even when 
LEWIS served because Lewis was not expected to win 
the majority of his service points. See service 
percentages. 
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REMEMBER MELENITE? 
A progress report from 


Rene Turner, Hamilton 


Remember Melenie; the little girl with the high spinal 
injury in our hospital? Well, I’ve been asked to write a 
progress report since she has been provided with a 
Master 128 computer and a whole range of software. 


Initially Melenie was thrilled to have a clown on a 
television screen talk just to her, and this provided 
enough stimulation for her to expend the great effort 
which she required to move her hand to touch a “touch 
sensitive switch” in order to have the computer draw in 
segments of a picture. These very simple beginnings have 
led to a small team being established to encourage and 
educate Melenie as well as provide her with entertainment. 


Each week, she has Noeleen from the Crippled Childrens’ 
Society visit to educate her at the hospital. She has 
progressed from the single switch to banks of four large 
switches which she can now operate with both hands and 
both feet. Don’t get me wrong, it’s not easy; each 
movement is slow and takes a great deal of effort but 
every day there is a new minor improvement. 


Twice each week, Melenie is allowed out for the afternoon 
to Kindergarten where she mixes with other children and 
enthrals them with her computer. 


Melenie’s father visits every day and they have a weekly 
routine of time with the computer (I hear Melenie is 
teaching Dad how to use it); time for them to go for walks 
in the park by the lake (Melenie in her buggy), and they 
sometimes go home for the night, to McDonalds for treats, 
etc, etc. 


Life is certainly looking up - the times that she is off 
the respirator get a little longer each day, she has been 
able to move herself along with her toes, when she _ is 
Placed in a special framed chair on wheels that holds her 
standing upright. 


No great momentous miracles, just hard work, and every now 
and then a minor miracle Gepending on how you look at it. 
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The most notable has been that a little girl who said “I 
can’t” and never tried has now found the will and the 
desire to reach out and learn that she CAN if she really 
wants to. 


Melenie is now a happy outgoing adventurer learning more 
of what she can do each day. 


Oh, by the way, the Accident Compensation Commission don’t 
think Melenie is old enough to benefit from a computer, 
and when she is, an APPLE will. be more suitable but not 
before she is 12 years old at a minimum. I think we’ve 
proved them wrong on all counts; I just wish we could find 
a way to convince them. 


Thank you all for your help and software. 


Ed: Thanks for the update, Rene. Its great to hear that 
Melenie is making such great progress. Incidentally, 
Melenie will now be four years old. 


We first told you about Melenie in the August 1987 issue 
of Beeblet (Vol 5 No 7 Page 39). At the time we requested 
software and/or hardware assistance. This is a 
continuing project and I am sure Rene will be pleased to 
hear from anyone who can provide further assistance. 


Rene’s address is: 28 Prisk St 
Hamilton 
Telephone (071) 435 779 


or: C/o The Anaesthetic Department 
Waikato Hospital 
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IMPROVED SORTING ROUTINE 


FOR 


BBOUGS Fhe R 


by Jan Stuurman. 


FILER was published in Beebiet in a series of issues 
starting with Vol 4 No 8 and concluding in Vol 5 No 65. 
Beeblet acknowledges with gratitude the permission granted 
by Beebug magazine (which originally published the series) 
to publish the series of articles on Beebug FILER. - 


It has become clear that there has been at least two 
updates on the sorting routine originally published in 
Beeblet in May 1987. Because there has been more than one 
update, it has been decided to publish the latest version 
of FILERS in full. 


Readers are invited to compare their version of FILERS 
with what follows and make updates as required. The 
background information published previously still applies. 


NOTE: Some contributors to Beeblet have requested that 
the FILER series of programs be copied on to their discs 
before they are returned. This offer still stands and the 
FILERS update will be supplied if required before 
returning a contributor’s disc. Note, however, that there 
may be some delay in returning such discs - publication of 
Beeblet must take priority. 


10 REM Program FILERS 

20 REM Version B2.1 

30 REM Author Jan Stuurman 

40 REM BEEBUG March 1987 

50 REM Program subject to copyright 


100 MODE135:HIMEM=PAGE+&1800:Z%=0 
110 ONERRORPROCerror:END 

120 PROCsetup 

130 PROCtitle 

140 PROCinput 


«...FILERS V B2.1 Contd>>> 
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..FILERS V B2.1 Contd>>> 


150 PROCsort 
160 PROCclose 
165 PRINT*Press any Key for main menu” :G=GET: CHAIN"MENU” 
170 END 
180 : 
1000 DEFPROCsctup 
1010 rec=1:FDR=256 
1020 B%=HIMEM:maxf=12:maxs=6 
1030 DIMrecord$(maxf), fields Cmaxf),width%(maxf),os 22 
1040 DIMsfld%(maxs),strtx(maxs), len%(maxs) 
1050 ENDPROC 
1060 : 
2000 DEFPROCtitle 
2010 FORI=OTO1: 
PRINTTABC3, I> CHRS141CHRS129CHR$i157CHR$131"BEEBUG 
FILER SORT ROUTINE “CHR$156:NEXT 
2020 ENDPROC 
2030 : 
3000 DEFPROCinput 
3010 REPEAT 
3020 PROCwindow!:CLS:PROCwindow2 
3030 PROCfilenames 
3040 PROCsortfield 
3050 IFsf=1PROCalfnun 
3060 PROCascdec 
3070 UNTILFNask ¢" Confirm CY/Nd: “<3 
3080 ENDPROC 
3090 : 
4000 DEFPROCfilenames 
4010 REPEAT 
4020 PRINTCHRS130°Enter name of file to be sorted: 
“*CHRS131; 
4030 INPUTTABC 15)" "ops: PROCopenCops) 
4040 UNTILF!:PRINT 
4050 REPEAT 
4060 PRINTCHRS130"Enter new name of sorted file : 
"* CHRS1315 
4070 INPUTTAB( 15)" "np$ : PROCnopen(np$ > 
4080 UNTILF2:PRINT 
4090 PROCwindow1!:PRINTCHRS134°Old file: 
“CHR$131; 0p$TABC 20>)CHRS$134"New file: "CHRSI31;nps 
4100 ENDPROC 
4110 : 


.. FILERS V B2.1 Contd>>> 
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....FILERS V B2.1 Contd>>> 


5000 
5010 


5020 
5030 
5040 
5050 


5060 
5070 
5080 
5090 
5100 


5110 
5120 


5130 
5140 
5150 
5160 


5170 
5180 
5190 


5200 
5210 
5220 


5230 


5240 


5250 
5260 
5270 


DEFPROCsortfield 

PRINTTAB(9, 3) CHR$134"SORTFIELD COMPOSITION" TABCO,5) 
CHRS133"Fielda"SPC6é"Width Start Length Total” 
PRINTTAB( 32,6)CHR$134"¢=";maxl 

1f=O:sf=0 

REPEAT: PROCwindow2: REPEAT 

PRINTCHRS130“Enter field name";: 

IFsf>OPRINT", or <RETURN>”’CHR$130 

"to end composition”; 

PRINT": “CHR$131;:INPUT”"“sflds 
UNTIL(sf>OANDsfld$="" )ORFNfwidth(sfids) 
IFsfldas=""GOTO5250 ELSEsf=sf+l 
sfld&%(sf)=R:strt%(sfd=l:lens(sf)=FNfwidth(sflds) 
PROCwindow1:PRINTTAB(CO,sf£+6)CHRSi31; 

sfldsTAB( 16-LEN(STRS (len%(sf))) )CHRS134;len%(sf): 
PROCwindow2 

REPEAT 

PRINTCHRS130"Enter start position in field or press” 
*CHRS130"<RETURN>D for entire field: "CHR$131; 
INPUT’ "“strt$:strt%=VALstrt$ 
UNTILstrt$=""OR(strt% > OANDstrt%<=lens (sf) 
IFstrts<>""“strts(sfd=strt% 

PROCwindowl: 

PRINTTAB( 23-LEN(STRS(strt%(sf))),sf+6CHR$131; 
strt%(sf):PROCwindow2 

IFstrt$=""GOTO5230 

REPEAT 

PRINTCHRS$130"Enter length of fieldblock or press” 
*CHRS130"<RETURN> for rest of field :"CHRS131; 
INPUT" “len$:lent=VALIen$ 
UNTILlen$=""ORClen* > OCANDlen&Ststrt%(sfd¢=lens(sf)+1) 
IFlen$<>""lenk(sfd=len% 

ELSElen%s (sf >=lens(sfd-strt%(sfdti 
IFlft+lens(sf)>maxl VDU7: 
PRINTTABC8)CHR$S129"SORTFIELD TOO LONG": 

GOTO5180 ELSE]f=lft+tlen%s(sf) 

PROCwindowl: 

PRINTTAB( 30-LEN(STRS Clen%(€sf))),sf+6)CHRS131; 
lenk(sf>TABC38~LENCSTRS (C1 £)>,sf+6) CHRSI34;1f 
UNTILsf=maxs ORsfld$="" OR] f=maxl 

ENDPROC 


...-FILERS V B2.1 Contd>>»> 
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...-FILERS V B2.1 Contd>»>> 


6000 
6010 


6020 
6030 
6040 
6050 


6060 
6070 
7000 
7010 


7020 
7030 
7040 
7050 


7060 
7070 
8000 
8010 


8020 
8030 
8040 


8050 


8060 
8070 
9000 
$010 


9620 
9030 


9040 
9050 
9060 


9070 
9080 


DEFPROCal fnum 

PROCwindow2: 

PRINT’CHR$130"Press ’A’ for alphabetic sort”’TABC3) 
CHR$S1i30"or ‘°N’ for numeric sort :°3 

REPEAT xFX15 1 

A=INSTRC“AaNn”,GET$):UNTILA 
PROCwindow!:PRINTTABC11,9)>CHRS$131; 
IFA>2t$="VAL":PRINT"Numeric sort” ELSEt$="*: 
PRINT”"Alphabetic sort” 

ENDPROC 


DEFPROCascdec 
PROCwindow2: 


PRINT’CHRS130"Press ’A’ for ascending order”’ TABC3) 


CHRS$130"or ’D’ for descending order :"; 

REPEAT x*FX15 1 

A=INSTR("AaDd”,GET$>: UNTILA 
PROCwindowl1:PRINTTABC11,sf£+9)CHR$131; 
IFA>20$="<":PRINT”“Descending order” ELSEo$=">": 
PRINT"Ascending order“ 

ENDPROC 


DEFPROCopen(p$):LOCALI 
IFps=""VDU7:PRINTTABCLO)CHR$129"NO FILE GIVEN”: 
F1=0: ENDPROC 

F1=OPENINCp$) 

IFF1=OVDU7:PRINTTAB(C10)CHRS129"°NO SUCH FILE” :ENDPROC 
PTR#F1=O: INPUT#HFl,rec,recn,recs,f: 
maxl=C&7COO-BS)DIVCrec-1)-4 

FORI=i1TOf: INPUT#Fi,fields,width%(I>: 
fieldsS(I>=FNstrip(fields,°."):NEXT 

CLOSE#F 1 : ENDPROC 


DEFPROCnopen(p$):LOCALI 
IFp$=""VDU7:PRINTTAB(10)CHR$129"NO FILE GIVEN":F2=0: 
ENDPROC 

F2=OPENIN(p$):CLOSE#F2 
IFF2¢>O0VDU7: PRINTTABC 10> CHR$129"FILE EXISTS”: 
IFFNask("Overwrite existing file? CY/N) : ")>2 F2=0: 
ENDPROC 

PROCoscli{"SAVE “+p$+" 0+°+STRS~(FDR+trecnxrecs) ) 
F2=OPENUP(p$) :PTRA#F2=0:PRINT#F2,rec,recn,recs,f 
FORI=1TOf: PRINT#F2,LEFTS( fieldscI)>+ 
STRINGS$(12,°."),12),width%(I):NEXT 

CLOSE#F 2: ENDPROC 


....FILERS V B2.1 Contd>>> 
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.FILERS V B2.1 Contd>>> 


10000 
10010 


10020 
10030 


10040 ; 


11000 
11010 


11020 
{1030 


11040 
11050 


11060 


11070 
11080 
11090 
11100 
11110 
11120 


11130 
11140 
11150 
11160 
{1170 
11180 
11190 
13000 
13010 
13020 


13030 


13040 : 


14000 
14010 
15000 
15010 


15020 : 


166000 
16010 
16020 
16030 
16040 


DEFPROCclose: VDU7 

PRINTTAB(2)CHR$134"Files closed - “"j;rec-1; 

“ records in use” 

CLOSE#0 

ENDPROC 

DEFPROCsort 

LOCALI%,J%,K%,L%,U%, T$:L%=1£+4:PROCwindow2: 
PRINTCHRS 133CHRS$ 136; 

F1=OPENINCop$): F2=OPENUP (np > 

s$=""“:FORI%=1TOsf: , 
s$=s$+"MID$SCrecords("+STRSsf1d%C1%4)+"), “+STRSstrt% 
C1%)4+", "4STRSlensCI%d+ "34+" :NEXTiss$= LEFT$ (s$, LENs$-1) 
PRINTTAB( 13,0) “READING” 
FORI%=1TOrec-!{:PROCread(I%) 

$CBS4L&xCI%-1) 3} =EVALS$+RIGHTS (C"00"+STRSI%, 3): NEXT 
t$=tS+"TS"+0S+t$+"SCB% SHLEKCT%~ 1D)" 

PRINTTAB( 13,0) “SORTING” 

K%=1: REPEAT K%=3xK%+1:UNTIL3*K%+1>=rec~-l 

REPEAT K%=K%DIV3 
FORJ%=K%+1TOrec-1:T$=$ CBYtLEKCTS—-193 21% =SR-K%S 
REPEAT U%=EVALtS: 

IFNOTUS $CBSFL%*CI%4+K%—-1)99=SCBS4+LEKCIT%-1)3) 2: 1T%=1%-K% 
UNTILUSORI%<€ 1:8 (B%S4L%% C1 %4+K%~-1))=TS 

NEXT: UNTILK%=1 

PRINTTABC 13,0) "WRITING" 

FORI %=1TOrec-1:J%=VALRIGHTS ($(B%+L%*xC1%-1)),3) 
PROCread(J%):PROCwrite<cI%) 

NEXT: CLS: ENDPROC 


DEFFNask (msg$ ) 

LOCALA: PRINTCHRS 134msg$;CHR$131; 
REPEAT: A=INSTRC"“YyNn”,GET$):UNTILA: 
IFA>2THENPRINT"“N”“ELSEPRINT” Y” 

=A 


DEFPROCwindow! 
VDU28,0,21,39,3:ENDPROC 
DEFPROCwindow2 
VDU28,0,24,39,21,12:ENDPROC 
DEFPROCread(n):LOCALI 
PTR#FL=FDRtrecsx(n~1> 

FORI=1TOf: INPUT#F1,records CI1¥:NEXT 
ENDPROC 


* 
. 


..FILERS V B2.1 Contd>>»> 
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....PILERS V B2.1 Contd>>> 


17000 DEFPROCwrite(n):LOCALI 

17010 PTR#F2=FDR+trecsx(n-1) 

17020 FORI=!TOf:PRINT#F2, records (1I):NEXT 

17030 ENDPROC : 

17040 : 

18000 DEFFNstrip(p$,c$):LOCALI: I=LENp$+1 

18010 REPEAT: I=I-1:UNTILMID$(p$,1,1)<>c$SORI=0 

18020 =LEFT$(Cps,1I> 

18030 : 

19000 DEFFNfiwidth(p$):IFps=""=0 

19010 R=0: REPEAT: R=R+1:UNTILp$=field$CRIOR R=f 

19020 IFR=f ANDp$<>field$(R)VDU7:PRINTTABC10)CHRS$129 
"NO SUCH FIELD®’:=0 ELSE =width%C¢R) 

19030 : 

20000 DEFPROCoscl1i(C$o0s) 

20010 LOCALX%, Y% 

20020 X%=os:Y%=o0s DIV256:CALL&FFF7 

20030 ENDPROC 

20040 : , 

21000 DEFPROCerror 

21010 IFERR=17PRINT’ TABC 12> CHR$129"SORTING ABORTED": 
GOTO21040 

21020 ONERROROFF 

21030 REPORT:PRINT™ at “;ERL 

21040 PROCclose : CHAIN" MENU" 

21050 ENDPROC 

21060 : 


Beeblet acknowledges with gratitude the permission granted 
by Beebug magazine to publish the series of articles on 
Beebug FILER. For previous articles, see Beeblet Vol 4 
Nos 8, 9 and 10; Vol 5 Nos 1 to 5 inclusive. 





FILER NOT 


A series of Notes are also available summarising the 
features and commands of FILER. These are in the form of 
VIEW files. There is no problem reading these files 
directly into INTERWORD and spooled versions could be made 
available. If you would like copies of these notes, just 
add an appropriate request when you send in your next 
contribution to Beeblet. 
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Discovered on 2 





BULLETIN BOARD 


Giliossary of Terms and fuotes 
from “The Official Computer Hater’s Handbook" 


by D.J. Arneson (Dell Publ. 


BYTE 


CARRIAGE RETURN 
COLD BOOT 
COMPUTER SCIENCE 
DATA 

DOWN 


DUMP 


ELECTRONIC MAIL 


EXPANSION SLOTS 
FLOPPY DISK 


FRIENDLY 


INTELLIGENT 


INTERLACE 


Co. 1983) 


Short for “buy it”. Refers to how many 
peripherals you’ll have to purchase to 
support a computer (e.g. there are 8 
“buy it”, 16 “buy it", or 64 “buy it" 
computers) 


What you do 
the Kid. 


if you decide not to Keep 
What a programmer puts on feet in 
winter. 

The fastest growing voodoo art course in 
American colleges and universities 
today. 


A nice-a Italian girl. 


Said of a computer made of feathers: 
"That computer is down.” 


The best place for computers 


New Zealand Post jargon for anything 
delivered in less than a week. 


The extra holes in your belt buckle. 
Serious curvature of the spine. 


Said of anything associated with 
computers that is difficult to 


understand or does not work the way it 
Says it will. 
A hypothetical term used in computing. 


To tie two boots together. 
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INTERPRETER 


KEYPAD 
KEYWORD 
LIGHT PEN 


LINE FEED 
MENU 


MULTI~PROCESSING 
NETWORK 

OUTPUT DEVICE 
PERIPHERAL 


PROGRAM 
PROGRAM COUNTER 


RAM 


ROM 
ROUTINE 


SILICON 
SOFTWARE 
SUPERFICHE 


The person you take with you to the 
computer store to help you understand 
what the salesman is talking about; 
usually a twelve year old Kid. 

An apartment with a lock. 

"Your place or mine?“ 


A minimum sentence prison. 


“I’ve never met anyone as interesting as 
you before,” etc. 


An itemised list of ways to make a 
mistake on a computer. 


To cook statistics more than once. 

What fishermen do when not fishing. 

A word processor who can’t say “No!” 
Anything that costs a lot of money that 
can remotely be associated with 
computers. 


A random accumulation of bugs. 


A parent who limits how much TV you 
watch. 


Where most of the bugs are Kept. 


Where you put all the bugs that won’t 
fit in the ran. 


A program that never works the same way 
twice. 


A foolish prisoner. 
What hackers wear under their hardware. 


Moby Dick, Jaws, etc. 


TERMINAL INTELLIGENCE 


Tune 8323 


To be so smart it kills you. 


BEEBLET 25 


TIME SHARING What you do when only one of you has a 
watch. 


VARIABLE Anything with a fixed value you thought 
would change. 


WORD PROCESSING To change the meanings of words, e.g., to 
make the simplest communication 
completely unintelligible. 


WORK STATION A desk with a dumb terminal sitting at a 
computer. 


ZAP The ultimate bug Killer. 
HOORAY! You’ve mastered the lingo! Now, just remember: 


Those who can, compute. 

Those who cannot, program. 

Those who can’t program, write manuals. 

Those who can’t write manuals, sell computers! 


ed 
PS . 


Not very original? 
Then what are your favourite definitions? 


Remember "What is a Girl?” 
Can anybody define “What is a BBC Computer User?” 


Or Electron. Or Master. Or Archimedes. 


PROGRAMMING RED KEYS 


Richard Bayliff, Takaka, writes enquiring how to program 
the red function keys so that he can use <SHIFT) fx, 
<CTRLDO fx, and even <SHIFT><CTRL) fx. 


Since this involves the use of xFX calls, Anne Flower has 
offered to cover this subject in the next issue. Care is 
required as there are limitations that need to he 
understood; and there are ways round those limitations. 


An interesting enquiry - should be an answer of interest 
to a number of readers. So watch for Anne’s response in 
the next issue. 


LALLA aataTneNN sata fuetisnrcetateattntsann\nenepnteirinia th enenthnenenynyseendapnnesmcninsnseensnnenpepccnassnimasamansnttyastet 
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DATABASE 
SERVICES 


COMMSTAR 2 Videotex/ASCII communications 
software for all models of BBC $ 99.00 


TELEPHONE Jackpoints, dual adapters, 
ACCESSORIES extension leads, US to BT conversion 


cables from $ 9.50 
MODEMS MD312 

Manual dial, multispeed 300/300 

1200/75 - Telecom approved $ 375.00 


DISCOVERY 1200C 
Autodial multispeed 300/300, 


1200/1200 - Telecom approved $ 759.00 
Contact: 
DATABASE 
SERVICES 
PO BOX 94, AUCKLAND. 11 ANZAC AVE., AUCKLAND 
STARNET: 9:DRVOO1 Telephone: (09) 799658 


OP AEE REO OE RE REID IE IE RD ED REI RIE BE BEE BO AE EE REG OEE AT BE RO EE RIE RO OIE BEBE AG EEE RE ERE ERE OO 


For Ssaities: 


VIEW ROM: Still in box with Manuals, Keystrip, etc. Ideal 
for BBC B $150 


SIDEWAYS RAM 16K (Watfords): Uses 2x8K RAM chips on 
carrier board with flying lead. Plugs into sparc ROM slot. 
Comes complete with instructions and write protect switch, 
utility software for loading, saving. + printer buffer. 
(note: Same as ACORN unit) $ 55 


Contact: Frank Pinion .. phone (03) 519 219 


JOG IG IIIS OG OO III IIR IC II OK 
MEMBERS 


Membership of the National User Group is on payment of an 
annual subscription from April to March, which is $20.00 
for the 1988/9 year. A local branch levy may be payable 
which entitles attendance at meetings as detailed on the 
back page. Joining or renewing members get all the back 
issues of Beeblet for the current year - those joining 
after 1 October may have half the annual subscription 
waived and only receive Reeblet from 1 October. 

FO IOI IR IOI RK IOI IO RIK IC IK IO III ROR ROR ROK ROK AOI RR AIC OK 
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USER GROUP MEETINGS 





AUCKLAND: -?nd and 3rd Wednesday of each month at Social 
Club, Auckland Hospital, Grafton Road at 7.20pm... 
Contact John Buchanan (Secy), phone 546-985; David 
Wilkin (Pres), phone 437-540. 
North Shore: -last Wednesday of the month, 7.30pm, Salvation 
Army Hall, Glenfield Road, Glenfield. 
Contact: Chris, Phone 419-0543 (wk). 


CHRISTCHURCH: ~fortnightly workshops, Monday 6.30pm at Hagley 
High School. phone Michael S82-267. : 
DUNEDIN: -first Thursday of the month. 
Contact: Martin McDowall, Phone 42-031 
HAWKES BAY: -2nd Sunday 2.30pm, Taradale Primary School. 


Contact Ron: 444-970, John: 445-729 (librarian), 
Major: 447-729, Mitch: 85-395. . 
INVERCARGILL: -Southland Education Centre, 70 Doon St. Contact 


Bob Evans, 73-050 or Lyndon McEntee (020) 87-365. 
NELSON: -second Monday of the month, 7.30pm, Nelson Baptist 


Church, Bridge St. Contact: Peter, Richmond 98975; 
Ken, Nelson 85-150; Richard, Richmond 8489. 
PALMERSTON NORTH: ~-Phone Brian Knowles 79-319. 
ROTORUA: -first Tuesday of month, Science Lab at Rotorua 
Girls High School. Phone: Ian 85-583, Joan 981-536 
Tony 89-316. ; e 


TAUPO: | -every second Wednesday, 7.00pm. 
Contact: David 84-215 (h), 85-124 (wk). 
TAURANGA: —every second Wednesday. ph. Chris & Jane 65-076. _ 
TIMARU: -Phone Lloyd van der Krogt Timaru 61-412. 
TOKOROA: -ist Friday of month, 7.30pm, Tokoroa High School. 


Contacts: Don Fraser, 68-813 or Graeme Robertson, 
65-346 Tokoroa. 


WAIKATO: —first Monday of the month, 7.30pm, Waikato Tech 

Institute. Ph. Alison or John, Morrinsville 6695. 

WELL INGTON: -usually second Wednesday, 7.30pm, Royal Society 
Lecture Theatre, Turnbull St, Thorndon. 

-Workshops: fourth Tuesday of month, other 


details: ph. Don 848-235 or Mike 785-437. 
OTHER CENTRES: ~let us know and we will publish details here. 
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CONTRIBUTIONS: -most welcome. Listings should be sent in on tape 
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